|
700
|
Is it possible to colour a particular column for specified values
OBJECT columns,conditionalformat,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "int(%1) in (3,4,5)");
_ObjectSetProperty( conditionalformat , "BackColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(0),1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(2),1) = 3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(4),1) = 5");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
699
|
Is it possible to colour a particular column
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", columns)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(4) = 255");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(0),1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(2),1) = 3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(4),1) = 5");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
698
|
How do i get all the children items that are under a certain parent Item handle
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
hChild = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemChild(FirstVisibleItem)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hChild)
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(hChild,0)") );
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(NextSiblingItem(hChild),0)") );
_ObjectCallMethod( gantt , "EndUpdate");
|
|
697
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 3);
_ObjectSetProperty( chart , "OverviewVisible", -1);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(0) = `<%yy%><|><%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(1) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(2) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16) = `<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(17) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(65536) = `<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(1048576) = `<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(0) = `<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(1) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(2) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16) = `<%m%>/<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(17) = ``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%m%>/<%d%>/<%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%m%>/<%d%>/<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(65536) = `<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(1048576) = `<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16777216) = `<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
696
|
How can I get the caption of focused item
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION ganttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
Message( "Handle" );
Message( _ObjectGetProperty( items , "FocusItem") );
Message( "Caption" );
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,0)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
695
|
How can I get the caption of selected item
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION ganttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
Message( "Handle" );
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectedItem(0)") );
Message( "Caption" );
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(SelectedItem(0),0)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
694
|
How can I highligth the item from the cursor as it moves
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
OBJECT items;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(gantt, "TemplatePut", c)
_ObjectCallMethod(gantt, "TemplatePut", hit)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "ClearItemBackColor", _ObjectCallMethod(gantt, "ExecuteTemplate", ".Background(1000)"));
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(h) = 15792880");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Background(1000) = h");
_ObjectCallMethod( gantt , "EndUpdate");
END
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectSetProperty( gantt , "DrawGridLines", 1);
_ObjectSetProperty( gantt , "SelBackColor", 15792880);
_ObjectSetProperty( gantt , "SelForeColor", 0);
_ObjectSetProperty( gantt , "ShowFocusRect", 0);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "SelBackColor", 15792880);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
693
|
How can I get the item from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(gantt, "TemplatePut", c)
_ObjectCallMethod(gantt, "TemplatePut", hit)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj,h")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Items"))
_ObjectCallMethod(gantt, "TemplatePut", h)
Message( "Handle" );
Message( h );
Message( "Index" );
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.ItemToIndex(h)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectSetProperty( gantt , "DrawGridLines", 1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
692
|
How can I get the column from the cursor, not only in the header
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "ColumnFromPoint(-1,0)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P2");
_ObjectSetProperty( gantt , "DrawGridLines", -1);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `R2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
691
|
How can I get the column from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "ColumnFromPoint(-1,-1)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectSetProperty( gantt , "DrawGridLines", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P2");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `R2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 1.1`),1) = `Cell 1.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Cell 2.1`),1) = `Cell 2.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
690
|
How can I get the cell's caption from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(gantt, "TemplatePut", c)
_ObjectCallMethod(gantt, "TemplatePut", hit)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj,c,h")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Items"))
_ObjectCallMethod(gantt, "TemplatePut", c)
_ObjectCallMethod(gantt, "TemplatePut", h)
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.CellCaption(h,c)") );
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "R1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 1.2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "R2");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.1");
_ObjectCallMethod( items , "InsertItem", h,"","Cell 2.2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
689
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "DrawGridLines", -1);
_ObjectSetProperty( gantt , "GridLineStyle", 33);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C2");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C3");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `SubItem 1.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `SubItem 1.3`");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `SubItem 2.2`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,2) = `SubItem 2.3`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
688
|
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
OBJECT bar,chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "DrawGridLines", -1);
_ObjectSetProperty( gantt , "GridLineColor", 14474460);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "GridLineStyle", 256);
_ObjectSetProperty( chart , "LevelCount", 2);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "DrawGridLines", -1);
_ObjectSetProperty( level , "GridLineColor", 14474460);
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( bar , "Height", 14);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
687
|
Is it possible to change the style for the vertical grid lines, in the chart area only
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "DrawGridLines", -1);
_ObjectSetProperty( gantt , "GridLineStyle", 12);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "GridLineStyle", 12);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "GridLineColor", 255);
_ObjectSetProperty( level , "GridLineStyle", 32);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
686
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "DrawGridLines", -1);
_ObjectSetProperty( gantt , "GridLineStyle", 48);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "GridLineStyle", 48);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
685
|
How can I show the grid lines for the chart and list area
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "DrawGridLines", -1);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).DrawGridLines = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Pattern = 1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/15/2001","B");
|
|
684
|
How can I get the link from the point
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Chart"))
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.LinkFromPoint(-1,-1)") );
END
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
683
|
How can I get the bar from the point
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Chart"))
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)") );
END
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/4/2001","1/6/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
682
|
How can I get the level from the cursor
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Chart"))
Message( _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.LevelFromPoint(-1,-1)") );
END
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/25/2010");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 4);
|
|
681
|
I display numbers in my chart, but the AddBar requires a date how can I add a bar
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", 0);
_ObjectSetProperty( chart , "ToolTip", "");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%i%>");
_ObjectSetProperty( level , "ToolTip", "");
_ObjectSetProperty( chart , "UnitWidth", 24);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task",2,4);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task",6,10);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
680
|
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
// DateChange event - Occurs when the first visible date is changed.
FUNCTION ganttEvents_DateChange()
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", 0);
_ObjectCallMethod(gantt, "ExecuteTemplate", "ScrollPartEnable(2,1024) = False");
END
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", 0);
_ObjectSetProperty( chart , "ToolTip", "");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%i%>");
_ObjectSetProperty( level , "ToolTip", "<%i%>");
_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
679
|
How can I display numbers in the chart's header instead dates
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", 0);
_ObjectSetProperty( chart , "ToolTip", "");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%i%>");
_ObjectSetProperty( level , "ToolTip", "");
_ObjectSetProperty( chart , "UnitWidth", 24);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
678
|
How can I determine that a certain bar is the topmost
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 48");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/27/2000");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Bars A B");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","B");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,`B`,513) = 255");
h = _ObjectCallMethod( items , "AddItem", "Bars B A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","B");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","A");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,513) = 255");
|
|
677
|
Is there any automatic way to change a property for all bars in the chart
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K4");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,513) = 255");
|
|
676
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( gantt , "SelBackColor", _ObjectGetProperty( gantt , "BackColor"));
_ObjectSetProperty( gantt , "SelForeColor", _ObjectGetProperty( gantt , "ForeColor"));
_ObjectSetProperty( gantt , "HasLines", 0);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Default");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16777216");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Light Green");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16842496");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Dark Green");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16809728");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Magenta");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 33521663");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Yellow");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 25165823");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(InsertItem(h,,``)) = 6");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
675
|
How can I remove all bars from the chart
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod( items , "ClearBars", 0);
|
|
674
|
How can I change the color for all bars with a specified key
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(0,`K1`,513) = 255");
|
|
673
|
Is there any automatic way to change a property for all bars with a specified key
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(0,`K1`,513) = 255");
|
|
672
|
How can I remove all bars with specified key
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod( items , "RemoveBar", 0,"K1");
|
|
671
|
Is there any option to show gradient bars without using EBN technology
OBJECT bar,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 65535);
_ObjectSetProperty( bar , "Pattern", 32);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
|
|
670
|
How can I disable the control's splitter so the user can't resize the list area
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "OnResizeControl", 129);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(0) = 60");
|
|
669
|
How can I disable the control's splitter so the user can't resize the chart area
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "OnResizeControl", 128);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(1) = 60");
|
|
668
|
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
OBJECT bar,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Add", "A");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "Shape", 2);
_ObjectSetProperty( bar , "Pattern", 1);
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Add", "B");
_ObjectSetProperty( bar , "Color", 128);
_ObjectSetProperty( bar , "Shape", 4);
_ObjectSetProperty( bar , "Pattern", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Add", "A%B") , "Shortcut", "AB");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"AB","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,10) = 1");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
667
|
Does your control support RightToLeft property for RTL languages or right to left
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ScrollBars", 15);
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "P1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectSetProperty( gantt , "RightToLeft", -1);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
666
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
OBJECT columns,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ScrollBars", 15);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "C1");
_ObjectCallMethod( columns , "Add", "C2");
_ObjectCallMethod( columns , "Add", "C3");
_ObjectCallMethod( columns , "Add", "C4");
_ObjectCallMethod( columns , "Add", "C5");
_ObjectCallMethod( columns , "Add", "C6");
_ObjectCallMethod( columns , "Add", "C7");
_ObjectCallMethod( columns , "Add", "C8");
_ObjectSetProperty( gantt , "RightToLeft", -1);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
665
|
Can I display the cell's check box after the text
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(34) = `caption,check`");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 1`),0) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHasCheckBox(AddItem(`Caption 2`),0) = True");
|
|
664
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Add(`Column`).Def(34) = `caption,check,icon,icons,picture`");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Text");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHasCheckBox(h,0) = True");
|
|
663
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Add(`Column`).Def(34) = `caption,icon,check,icons,picture`");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Text");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellImage(h,0) = 1");
|
|
662
|
Is there any option to print the columns section on each page
OBJECT createobject("exontrol.print"),gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Col 1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Col 2");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "LevelCount", 2);
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Col 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h1)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = `Col 2`");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Col 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h2)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h2,1) = `Col 2`");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( gantt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "ColumnsOnEveryPage=-2");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", gantt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
661
|
Is there any option to print the columns section on each page
OBJECT createobject("exontrol.print"),gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "LevelCount", 2);
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","2/5/2001","2/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( gantt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "ColumnsOnEveryPage=1");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", gantt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
660
|
How do I print the control's content
OBJECT createobject("exontrol.print"),gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,6) = 0");
_ObjectCallMethod( gantt , "EndUpdate");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", gantt);
_ObjectCallMethod( createobject("exontrol.print") , "Preview");
|
|
659
|
How can I display the column using currency format and enlarge the font for certain values
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Currency");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "9.94");
_ObjectCallMethod( items , "AddItem", "11.94");
_ObjectCallMethod( items , "AddItem", "1000");
|
|
658
|
How can I highlight only parts of the cells
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
657
|
How can I get the number of occurrences of a specified string in the cell
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "occurrences");
_ObjectSetProperty( column , "ComputedField", "lower(%0) count 'o'");
_ObjectSetProperty( column , "FormatColumn", "'contains ' + value + ' of \'o\' chars'");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1 oooof the root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
656
|
How can I display dates in my format
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/21/2001");
_ObjectCallMethod( items , "AddItem", "2/22/2002");
_ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod( items , "AddItem", "4/24/2004");
|
|
655
|
How can I display dates in short format
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date") , "FormatColumn", "shortdate(value)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod( items , "AddItem", "2/2/2002");
_ObjectCallMethod( items , "AddItem", "3/3/2003");
_ObjectCallMethod( items , "AddItem", "4/4/2004");
|
|
654
|
How can I display dates in long format
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date") , "FormatColumn", "longdate(value)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod( items , "AddItem", "2/2/2002");
_ObjectCallMethod( items , "AddItem", "3/3/2003");
_ObjectCallMethod( items , "AddItem", "4/4/2004");
|
|
653
|
How can I display only the right part of the cell
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Right");
_ObjectSetProperty( column , "ComputedField", "%0 right 2");
_ObjectSetProperty( column , "FormatColumn", "'^"' + value + '^"'");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
652
|
How can I display only the left part of the cell
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Left") , "ComputedField", "%0 left 2");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
651
|
How can I display true or false instead 0 and -1
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Boolean") , "FormatColumn", "value != 0 ? 'true' : 'false'");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", -1);
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
|
|
650
|
How can I display icons or images instead numbers
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Icons");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "'The cell displays the icon <img>'+value+'</img> instead ' + value");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
|
|
649
|
How can I display the column using currency
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Currency") , "FormatColumn", "currency(dbl(value))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "0");
_ObjectCallMethod( items , "AddItem", 5);
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
648
|
How can I display the currency only for not empty cells
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Currency") , "ComputedField", "len(%0) ? currency(dbl(%0)) : ''");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "0");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(AddItem()) = 8421631");
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
647
|
Is there a function to display the number of days between two date including the number of hours
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Start") , "Width", 32);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Duration") , "ComputedField", "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : " +
"'') + =:3 + ' hour(s)' : '' )");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/14/2001#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #4/11/2003 11:00:00 AM#");
|
|
646
|
Is there a function to display the number of days between two date including the number of hours
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Start");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Duration") , "ComputedField", "^"D ^" + int(date(%1)-date(%0)) + ^" H ^" + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/14/2001 11:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002 12:00:00 PM");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #3/14/2002 1:00:00 PM#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #4/11/2003 11:00:00 AM#");
|
|
645
|
How can I display the number of days between two dates
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Start");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "End");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Duration") , "ComputedField", "(date(%1)-date(%0)) + ' days'");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "1/11/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/14/2001#");
h = _ObjectCallMethod( items , "AddItem", "2/22/2002");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #3/14/2002#");
h = _ObjectCallMethod( items , "AddItem", "3/13/2003");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #4/11/2003#");
|
|
644
|
How can I get second part of the date
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Second") , "ComputedField", "sec(date(%0))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:10:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:01:22 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:23:01 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:11:59 PM");
|
|
643
|
How can I get minute part of the date
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Minute") , "ComputedField", "min(date(%0))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:10:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:01:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:23:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:11:00 PM");
|
|
642
|
How can I check the hour part only so I know it was afternoon
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "hour(%0)>=12") , "Bold", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Hour") , "ComputedField", "hour(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
641
|
What about a function to get the day in the week, or days since Sunday
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "WeekDay") , "ComputedField", "weekday(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
640
|
Is there any function to get the day of the year or number of days since January 1st
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Day since January 1st") , "ComputedField", "yearday(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
639
|
How can I display only the day of the date
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Day") , "ComputedField", "day(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/11/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/22/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/13/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/14/2004 1:00:00 PM");
|
|
638
|
How can I display only the month of the date
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Month") , "ComputedField", "month(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
637
|
How can I get only the year part from a date expression
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Year") , "ComputedField", "year(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
636
|
Can I convert the expression to date
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date") , "ComputedField", "date(dbl(%0))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "30000.99");
_ObjectCallMethod( items , "AddItem", "3561.23");
_ObjectCallMethod( items , "AddItem", "1232.34");
|
|
635
|
Can I convert the expression to a number, double or float
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number + 2") , "ComputedField", "dbl(%0)+2");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
634
|
How can I display dates in long format
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "LongFormat") , "ComputedField", "longdate(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
633
|
How can I display dates in short format
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "ShortFormat") , "ComputedField", "shortdate(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
632
|
How can I display the time only of a date expression
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Time") , "ComputedField", "'time is:' + time(date(%0))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1/1/2001 10:00:00 AM");
_ObjectCallMethod( items , "AddItem", "2/2/2002 11:00:00 AM");
_ObjectCallMethod( items , "AddItem", "3/3/2003 12:00:00 PM");
_ObjectCallMethod( items , "AddItem", "4/4/2004 1:00:00 PM");
|
|
631
|
Is there any function to display currencies, or money formatted as in the control panel
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Currency") , "ComputedField", "currency(dbl(%0))");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
_ObjectCallMethod( items , "AddItem", "10000.99");
|
|
630
|
How can I convert the expression to a string so I can look into the date string expression for month's name
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Str") , "ComputedField", "str(%0) + ' AA'");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
629
|
Can I display the absolute value or positive part of the number
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Abs") , "ComputedField", "abs(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
628
|
Is there any function to get largest number with no fraction part that is not greater than the value
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Floor") , "ComputedField", "floor(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
627
|
Is there any function to round the values base on the .5 value
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Round") , "ComputedField", "round(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
626
|
How can I get or display the integer part of the cell
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Number");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Int") , "ComputedField", "int(%0)");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "-1.98");
_ObjectCallMethod( items , "AddItem", "0.99");
_ObjectCallMethod( items , "AddItem", "1.23");
_ObjectCallMethod( items , "AddItem", "2.34");
|
|
625
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "") , "ComputedField", "proper(%0)");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "root");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod( items , "InsertItem", h,"","child child");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
624
|
Is there any option to display cells in uppercase
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "") , "ComputedField", "upper(%0)");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
623
|
Is there any option to display cells in lowercase
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "") , "ComputedField", "lower(%0)");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
622
|
How can I mark the cells that has a specified type, ie strings only
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "type(%0) = 8") , "ForeColor", 255);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"",2);
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
621
|
How can I bold the items that contains data or those who displays empty strings
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "not len(%1)=0") , "Bold", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C1");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C2");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(hC,1) = `1`");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
620
|
Can I change the background color for items or cells that contains a specified string
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "%0 contains 'hi'") , "BackColor", 255);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Chld 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
619
|
Is there any option to change the fore color for cells or items that ends with a specified string
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "%0 endwith '22'") , "ForeColor", 255);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1.22");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2.22");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
618
|
How can I highlight the cells or items that starts with a specified string
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "%0 startwith 'C'") , "Underline", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","SChild 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
617
|
How can I change the background color or the visual appearance using ebn for a particular column
OBJECT columns,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", columns)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(7) = 16777216");
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Add(`Column 3`).Def(7) = 16777471");
_ObjectCallMethod( columns , "Add", "Column 4");
|
|
616
|
How can I change the background color for a particular column
OBJECT columns,gantt;
gantt = ObjectByName("AN1") ;
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", columns)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Add(`Column 2`).Def(7) = 8439039");
_ObjectCallMethod( columns , "Add", "Column 3");
|
|
615
|
Is it possible to define level in terms of just increasing numbers (not a Date)
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 32");
_ObjectSetProperty( chart , "UnitWidth", 32);
_ObjectSetProperty( chart , "FirstVisibleDate", 1000);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%i%>`");
|
|
614
|
How can I hide the non-working units ( days or hours )
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(0) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<%dddd%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectSetProperty( chart , "NonworkingHours", 16773375);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
613
|
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001 10:00:00 AM");
_ObjectSetProperty( chart , "LevelCount", 3);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<b><%mmm%> <%d%>, <%yyyy%></b>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Unit", 4096);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%h%>:00 <%AM/PM%>");
_ObjectSetProperty( level , "Alignment", 1);
_ObjectSetProperty( level , "Unit", 65536);
_ObjectSetProperty( level , "DrawTickLines", -1);
_ObjectSetProperty( level , "DrawGridLines", -1);
_ObjectCallMethod(gantt, "TemplatePut", "Dim levObj")
_ObjectCallMethod(gantt, "TemplatePut", level)
_ObjectCallMethod(gantt, "ExecuteTemplate", "levObj.ReplaceLabel(`12:00 PM`) = `<fgcolor=0000FF><b>Noon</b></fgcolor>`");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(2)");
_ObjectSetProperty( level , "Label", "");
_ObjectSetProperty( level , "Unit", 1048576);
_ObjectSetProperty( level , "Count", 15);
|
|
612
|
How can I change the selection background color in the chart area
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "SelBackColor", 255);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/6/2001","1/14/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(FirstVisibleItem) = True");
|
|
611
|
How can I change the selection background color in the chart area
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "SelBackColor", 16777216);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/6/2001","1/14/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(FirstVisibleItem) = True");
|
|
610
|
Is there any way to extend the selection on the chart
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "SelBackColor", _ObjectGetProperty( gantt , "SelBackColor"));
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/6/2001","1/14/2001");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(FirstVisibleItem) = True");
|
|
609
|
How can I display the column's header using multiple lines
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "HeaderHeight", 128);
_ObjectSetProperty( gantt , "HeaderSingleLine", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "This is just a column that should break the header.") , "Width", 32);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "This is just another column that should break the header.");
|
|
608
|
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( chart , "MarkNowColor", 16777216);
_ObjectSetProperty( chart , "MarkNowWidth", 6);
_ObjectSetProperty( chart , "MarkNowTransparent", 50);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2008","1/1/2018");
|
|
607
|
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( chart , "MarkNowColor", 16777216);
_ObjectSetProperty( chart , "MarkNowWidth", 6);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2008","1/1/2018");
|
|
606
|
How can I show a vertical bar that indicates the current time
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( chart , "MarkNowColor", 16711680);
_ObjectSetProperty( chart , "MarkNowWidth", 7);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2008","1/1/2018");
|
|
605
|
How can I show semi-transparent the vertical bar that indicates the current time
OBJECT chart,gantt,items,level;
gantt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( chart , "MarkNowColor", 16711680);
_ObjectSetProperty( chart , "MarkNowWidth", 7);
_ObjectSetProperty( chart , "MarkNowTransparent", 50);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Tasks");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/1/2008","1/1/2018");
|
|
604
|
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
OBJECT gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "MarkNowColor", 16711680);
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "MarkNowCount", 15);
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "MarkNowWidth", 3);
|
|
603
|
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "UnitWidth", 48);
_ObjectSetProperty( chart , "LevelCount", 1);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 1048576");
_ObjectSetProperty( chart , "MarkNowColor", 255);
_ObjectSetProperty( chart , "MarkNowUnit", 1048576);
_ObjectSetProperty( chart , "MarkNowWidth", _ObjectGetProperty( chart , "UnitWidth"));
|
|
602
|
Is there any way to highlight or show a vertical bar that indicates the current time
OBJECT gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Level(0).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Level(1)");
_ObjectSetProperty( level , "Label", "<%ss%>");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "MarkNowColor", 255);
|
|
601
|
Is there a way of making a bar flash on the screen
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Flashy task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/6/2001","K1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,16) = 80");
|